DIM Stati&(9,30):DIM o&(9,2):DIM p(9):DIM U%(50): DIM U$(50)
Sounda=440:Soundc=523.25:Soundd=587.33:sounde=659.26:soundf=698.46:Soundg=783.99:Sounda=880:Sounddc=261.63:Soundh=493.88:soundgd=392
PALETTE 3,0.47,0.87,1
COLOR 3,0
PRINT:PRINT:PRINT:PRINT:PRINT
PRINT"       ®®®®®®  ®®®®®®  ®®®®   ®     ® "
PRINT"       ®    ®  ®    ®  ®   ®   ®   ®  "
PRINT"       ®    ®  ®    ®  ®   ®    ® ®   "
PRINT"       ®®®®®®  ®    ®  ®   ®     ®    "
PRINT"       ®    ®  ®    ®  ®   ®     ®    "
PRINT"       ®    ®  ®    ®  ®   ®     ®    "
PRINT"       ®®®®®®  ®®®®®®  ®®®®      ®    "
PRINT
PRINT"                by ROLLE "
GOSUB Soundend
FOR b=1 TO 5000:NEXT b
CLS
OPEN "R",#2,"Training",48
FIELD #2, 2 AS Z$(7,1),4 AS g$(7,1),2 AS Z$(7,2),4 AS g$(7,2),2 AS Z$(7,3),4 AS g$(7,3),2 AS Z$(7,4),4 AS g$(7,4),2 AS Z$(8,1),4 AS g$(8,1),2 AS Z$(8,2),4 AS g$(8,2),2 AS Z$(8,3),4 AS g$(8,3),2 AS Z$(8,4),4 AS g$(8,4)
PALETTE 2,0,0.93,0.87
PALETTE 3,1,0.6,0.67
OPEN "I",#4,"Namen"
INPUT #4,b$(7),b$(8)
CLOSE 4
Anfang:
COLOR 1,0
b$(1)="Brust":b$(2)="Rücken":b$(3)="Schultern":b$(4)="Arme":b$(5)="Beine":b$(6)="Namen"
FOR b= 1 TO 6
MENU b,0,1,b$(b)
MENU b,1,1,"Hinzufügen"
NEXT
MENU 6,1,1,b$(7)
MENU 6,2,1,b$(8)
MENU 6,3,1,"EXIT"
MENU 6,4,1,"Statibügeln"
Ubunglesen:
OPEN "I",#1,"Übungen"
d=0:A=0
WHILE NOT EOF (1)
A=A+1
INPUT#1,U%(A),U$(A)
WEND
FOR b=1 TO 5
d=1
FOR c=1 TO A
IF U%(c)=b THEN d=d+1:Satznum%(b,d)=c:MENU b,d,1,U$(c)
NEXT c
NEXT b
CLOSE 1
GOTO Auswahl
Hinzufugen:
  OPEN "a",#1,"Übungen"
los:  
  PRINT "Was soll bei ";b$(x);" hinzugefügt werden?"
  INPUT ;U$
  IF U$="" THEN CLOSE 1:GOTO Anfang
  U%=x
  PRINT #1,U%,U$
  Z$(7,1)="��":Z$(8,1)="‚‚"
  PUT #2
  OPEN "O",#3,U$
  h=0:j=0
  FOR i= 1 TO 30 
  PRINT #3,h,j
  NEXT i
  CLOSE 3
  TOT$=U$+".info"
  KILL TOT$
  CLOSE 1:GOTO Anfang
Auswahl:
  CLS
  PRINT:PRINT "Bitte wählen sie jetzt die Teilnehmer aus":PRINT:PRINT "oder fügen sie eine Übung hinzu":PRINT:PRINT "oder beenden sie dieses Programm mit EXIT"
  n=0
Warten:
  x=MENU (0):y=MENU(1)
  SLEEP
  IF n>1 AND n%(1)=n%(2)OR n>2THEN BEEP:CLS:PRINT:PRINT "Mit sich selbst nur beim Onanieren":PRINT:PRINT "Nochmal von vorn":n=0:GOTO Warten
  IF x=6 AND y=3 THEN CLOSE 2:GOSUB Soundend:END
  IF x=0 GOTO Warten
  IF x=6 AND y=4 AND n=0 THEN GOTO Statibugeln
  IF x=6 AND y=4 AND n><0 THEN PRINT:PRINT "Döskopp,wähle Partner oder Übung":GOTO Warten
  IF x<6 AND y=1 THEN GOTO Warnung
  IF x<6 AND n=0 THEN BEEP:PRINT:PRINT"Erst die Teilnehmer,Baby":GOTO Warten
  IF x=6 AND y=1 THEN PRINT:PRINT b$(7):PRINT:PRINT "Noch jemand?":PRINT:PRINT "Oder eine Übung":n=n+1:n%(n)=7:GOTO Warten
  IF x=6 AND y=2 THEN PRINT:PRINT b$(8):PRINT:PRINT "Noch jemand?":PRINT:PRINT "Oder eine Übung":n=n+1:n%(n)=8:GOTO Warten
  IF x<6 AND n>0 THEN GOTO Training 
Training:
  GET #2,Satznum%(x,y)
  FOR f=1 TO 4
  Zahl%(7,f)=CVI(Z$(7,f))
  Zahl%(8,f)=CVI(Z$(8,f))
  Gewicht(7,f)=CVS(g$(7,f))
  Gewicht(8,f)=CVS(g$(8,f))
  NEXT f
Trainingaction:
  MENU 6,3,1,"Exit nach aktueller Eingabe"
  FOR f= 1 TO 4  
  FOR h= 1 TO n
  IF n%(h)=7 THEN COLOR 0,2
  IF n%(h)=8 THEN COLOR 0,3
  CLS 
  PRINT b$(n%(h)),:PRINT U$(Satznum%(x,y)):PRINT:PRINT "Satz","Anzahl","Gewicht in Kilo"
  FOR i= 1 TO 4
  PRINT i,Zahl%(n%(h),i),Gewicht(n%(h),i)
  PRINT
  NEXT i
  PRINT "Satz ";f :PRINT
  IF f=1 THEN PRINT " Return gibt ersten Wert aus alter Übung":PRINT
  IF f>1 THEN PRINT "Return gibt Werte aus letztem Satz":PRINT
  IF f>1 THEN PRINT "Letzter Satz",Zahl%(n%(h),f+3);"mal",Gewicht(n%(h),f+3);"kg":PRINT
  INPUT "Anzahl";Zahl%(n%(h),f+4)
  IF Zahl%(n%(h),f+4)=0 AND f=1 THEN Zahl%(n%(h),f+4)=Zahl%(n%(h),f):PRINT Zahl%(n%(h),f+4)
  IF Zahl%(n%(h),f+4)=0 AND f>1 THEN Zahl%(n%(h),f+4)=Zahl%(n%(h),f+3):PRINT Zahl%(n%(h),f+4)
  INPUT "Gewicht in Kilo";Gewicht(n%(h),f+4)
  IF Gewicht(n%(h),f+4)=0 AND f=1 THEN Gewicht(n%(h),f+4)=Gewicht(n%(h),f):PRINT Gewicht(n%(h),f+4)
  IF Gewicht(n%(h),f+4)=0 AND f>1 THEN Gewicht(n%(h),f+4)=Gewicht(n%(h),f+3):PRINT Gewicht(n%(h),f+4)
  IF n%(h)=7 THEN GOSUB soundeins
  IF n%(h)=8 THEN GOSUB soundzwei
  IF MENU(0)=6 AND MENU (1)=3 THEN GOTO Anfang
  NEXT h
  NEXT f
  FOR h= 7 TO 8
  m&(h)=0
  FOR f= 1 TO 4
  m&(h)=m&(h)+Gewicht(h,f+4)*Zahl%(h,f+4)
  NEXT f
  NEXT h
  IF n=2 GOTO Trainingspeichern
  IF n=1 GOTO Trainingspeicherneins
Trainingspeichern:
  FOR f= 1 TO 4
  LSET Z$(7,f)=MKI$(Zahl%(7,f+4))
  LSET Z$(8,f)=MKI$(Zahl%(8,f+4))
  LSET g$(7,f)=MKS$(Gewicht(7,f+4))
  LSET g$(8,f)=MKS$(Gewicht(8,f+4))
  NEXT f
  PUT #2,Satznum%(x,y)
  GOTO Statilesen 
Trainingspeicherneins:
  FOR f= 1 TO 4
  IF n%(n)=7 THEN LSET Z$(7,f)=MKI$(Zahl%(7,f+4))
  IF n%(n)=7 THEN LSET Z$(8,f)=MKI$(Zahl%(8,f))
  IF n%(n)=7 THEN LSET g$(7,f)=MKS$(Gewicht(7,f+4))
  IF n%(n)=7 THEN LSET g$(8,f)=MKS$(Gewicht(8,f))
  IF n%(n)=8 THEN LSET Z$(7,f)=MKI$(Zahl%(7,f))
  IF n%(n)=8 THEN LSET Z$(8,f)=MKI$(Zahl%(8,f+4))
  IF n%(n)=8 THEN LSET g$(7,f)=MKS$(Gewicht(7,f))
  IF n%(n)=8 THEN LSET g$(8,f)=MKS$(Gewicht(8,f+4))
  NEXT f
  PUT #2,Satznum%(x,y) 
Statilesen:
  GOSUB Soundend
  OPEN "I",#3,U$(Satznum%(x,y))
  FOR i= 1 TO 30
  INPUT #3,Stati&(7,i),Stati&(8,i)
  NEXT i
  CLOSE 3
Zahlersuchen:
  s(7)=0:s(8)=0
  FOR i= 1 TO 30
  IF Stati&(7,i)>0 THEN s(7)=s(7)+1
  IF Stati&(8,i)>0 THEN s(8)=s(8)+1
  NEXT i  
  FOR j=1 TO n
  IF s(n%(j))<30 THEN Stati&(n%(j),s(n%(j))+1)=m&(n%(j))
  IF s(n%(j))=30 AND s(n%(j))><0 THEN GOSUB Aufrucken
  IF s(n%(j))=0 THEN Stati&(n%(j),1)=m&(n%(j))
  NEXT j
Speichern:
  OPEN "o",#3,U$(Satznum%(x,y))
  FOR i= 1 TO 30
  PRINT #3,Stati&(7,i),Stati&(8,i)
  NEXT i
  CLOSE #3
  TOT$=U$(Satznum%(x,y))+".info"
  KILL TOT$
  GOTO Statistik
Aufrucken:
  FOR i=1 TO 29
  Ersatz&=Stati&(n%(j),i+1)
  Stati&(n%(j),i)=Ersatz&
  NEXT i
  Stati&(n%(j),30)=m&(n%(j))
  RETURN
Statistik:
  o&(7,1)=0:o&(7,2)=15000:o&(8,1)=0:o&(8,2)=15000
  FOR j=1 TO n
  FOR i=1 TO 30
  IF Stati&(n%(j),i)<>0 THEN GOSUB Grossenrechnen
  NEXT i
  NEXT j
  p#(7)=o&(7,1)-o&(7,2)
  p#(8)=o&(8,1)-o&(8,2)
  GOTO Statibild
Grossenrechnen:
  IF Stati&(n%(j),i)>o&(n%(j),1) THEN o&(n%(j),1)=Stati&(n%(j),i)
  IF Stati&(n%(j),i)<o&(n%(j),2) THEN o&(n%(j),2)=Stati&(n%(j),i)
  RETURN
Statibild: 
  SCREEN 2,330,250,2,1  
  FOR j=1 TO n
  IF o&(n%(j),1)=o&(n%(j),2)THEN SCREEN CLOSE 2:GOTO Anfang
  WINDOW j+1,b$(n%(j)),(0,0)-(320,220),20,2
  PALETTE 2,0,0.93,0.87
  PALETTE 3,1,0.6,0.67
  IF n%(j)=7 THEN COLOR 0,2
  IF n%(j)=8 THEN COLOR 0,3
  LINE (20,1)-(20,200),1:LINE (320,200)-(20,200),1 
  PRINT U$(Satznum%(x,y)) 
  FOR v= 1 TO 25:PRINT:NEXT v
  PRINT "HEUTE";m&(n%(j));"kg";
  IF o&(n%(j),1)><m&(n%(j)) THEN PRINT " TOP";o&(n%(j),1);"kg";
  IF o&(n%(j),1)=m&(n%(j))AND s(n%(j))<30 THEN PRINT " LETZTES MAL";Stati&(n%(j),s(n%(j)))" kg";
  IF o&(n%(j),1)=m&(n%(j))AND s(n%(j))=30 THEN PRINT " LETZTES MAL";Stati&(n%(j),29)" kg";
  FOR i=1 TO 30
  IF Stati&(n%(j),i)<>0 THEN GOSUB Linienziehen
  NEXT i
  NEXT j
  Statischluss:
  w$=INKEY$
  IF w$=CHR$(27) THEN SCREEN CLOSE 2:GOTO Anfang
  GOTO Statischluss
Linienziehen:    
  q#=200/p#(n%(j))*(Stati&(n%(j),i)-o&(n%(j),2))
  LINE -(i*10+10,200-CINT(q#)),1 
   RETURN
Statibugeln:  
  CLS
  PRINT "Statibügeln":PRINT
  PRINT "Wählen sie den Namen"
  War:
  x=MENU (0):y=MENU(1)
  SLEEP
  IF x=0 GOTO War
  IF x=6 AND y=3 THEN PRINT:PRINT "Ausgebügelt" :GOTO Anfang
  IF x=6 AND y=1 AND n=0 THEN n=7:PRINT:PRINT "Welche Übung von ";b$(n):GOSUB soundeins:GOTO War
  IF x=6 AND y=2 AND n=0 THEN n=8:PRINT:PRINT "Welche Übung von ";b$(n):GOSUB soundzwei:GOTO War
  IF x=6 AND y=4 THEN PRINT:PRINT "Was tust du denn gerade,hä?":GOTO War
  IF x=6 AND n>0 THEN BEEP:PRINT:PRINT "Die Übung,Mann!!!!":GOTO War  
  IF y=1 THEN BEEP:PRINT:PRINT "Hirni!!!":GOTO War 
  IF x<6 AND n=0 THEN BEEP:PRINT:PRINT "Erst den Namen":GOTO War
  CLS
  OPEN "I",#3,U$(Satznum%(x,y))
  FOR i= 1 TO 30
  INPUT #3,Stati&(7,i),Stati&(8,i)
  NEXT i
  CLOSE 3
  MIT=0
  Bugelbild:
  CLS
  PRINT:PRINT U$(Satznum%(x,y)),b$(n):PRINT
  FOR i = 1 TO 30 STEP 3
  PRINT  "Num";i;" Inh.";Stati&(n,i),"Num";i+1;"Inh.";Stati&(n,i+1),"Num";i+2;"Inh.";Stati&(n,i+2)
  NEXT i
  PRINT:INPUT "Welche Nummer (Beenden mit Return)";nummer
  IF nummer=0 AND MIT=0 THEN GOTO Auswahl
  IF nummer=0 THEN GOTO Bugelschluss
  PRINT "Welcher Wert in";nummer:INPUT Stati&(n,nummer)
  MIT=MIT+1:GOTO Bugelbild
Bugelschluss:  
  SOUND Soundd,18,,0
  OPEN "o",#3,U$(Satznum%(x,y))
  FOR i= 1 TO 30
  PRINT #3,Stati&(7,i),Stati&(8,i)
  NEXT i
  CLOSE #3
  GOTO Anfang
soundeins:  
SOUND WAIT:SOUND Soundd,9,,0:SOUND Soundg,9,,1:SOUND Soundc,9,,0:SOUND soundf,9,,1:SOUND RESUME:RETURN
soundzwei:                                  
SOUND WAIT:SOUND Sounda,9,,0:SOUND Soundd,9,,1:SOUND Soundh,9,,0:SOUND sounde,9,,1:SOUND RESUME:RETURN
Soundend:
SOUND WAIT:SOUND Soundg,9,,0:SOUND Sounda,27,,0:SOUND Soundg,9,,0:SOUND Soundd,9,,1:SOUND sounde,9,,1:SOUND Soundc,9,,1:SOUND Sounddc,9,,1:SOUND soundgd,9,,1:SOUND RESUME:RETURN
Warnung:
WINDOW 2,"Achtung",(1,1)-(300,100),2
LINE (1,50)-(100,90),1,b
LINE (190,50)-(290,90),1,b
LOCATE 1,1:PRINT "Das Hinzufügen ist nicht"
PRINT"rückgängig zu machen"
PRINT:PRINT "Sind sie sicher?"
LOCATE 9,5:PRINT "JA"
LOCATE 9,28:PRINT "Nein"
ChekMouse:
IF MOUSE(0)=0 THEN ChekMouse
w=MOUSE (3):q=MOUSE (2)
IF w>0 AND w<101 AND q>50 AND q<91 THEN WINDOW CLOSE 2:GOTO Hinzufugen
IF w>189 AND w<291 AND q>50 AND q<91 THEN WINDOW CLOSE 2:GOTO Anfang
GOTO ChekMouse